home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)ta.d64
/
fast backup.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
3KB
|
5 lines
10 OPEN1,8,15:M$="M-W":Q$=CHR$(34):FORI=3328TO4552STEP34:B$=""
20 PRINT"[147]"4552-I:FORJ=0TO33:B$=B$+CHR$(PEEK(I+J)):NEXT
30 H=INT(I/256)-10:L=IAND255:PRINT#1,M$CHR$(L)CHR$(H)Q$B$;:NEXT
40 PRINT#1,"M-E"CHR$(108)CHR$(6):SYS2304